home *** CD-ROM | disk | FTP | other *** search
/ PD ROM 1 / PD ROM Volume I - Macintosh Software from BMUG (1988).iso / Fonts / Laser Fonts / GE Laser Font / GenerEle / GenerEle
Encoding:
Text File  |  1986-09-04  |  7.0 KB  |  124 lines  |  [LWFN/LWRT]
  1. %!PS-Adobe-1.0
  2. %%Creator: Fontographer™
  3. %%Title: Download font: GeneralElectric
  4. %%CreationDate: 9/4/86 5:13:17 PM 
  5. %%Pages: 0
  6. %%
  7. %%EndComments
  8. systemdict /currentpacking known{/SavPak currentpacking def true setpacking}if
  9. userdict /AltRT2 known{}{/AltRT2 23 dict def AltRT2 begin /NestL 0 def
  10. /Cache{NestL 0 eq{setcachedevice}{pop pop pop pop pop pop}ifelse 0 0 moveto}def
  11. /SetWid{NestL 0 eq{setcharwidth setgray}{pop pop setgray}ifelse 0 0 moveto}def
  12. /ShowInt{/NestL NestL 1 add def fd exch AltRT2 /BuildChar get exec
  13. grestore /NestL NestL 1 sub def}def /charStr(.)def
  14. /Cf2{grestore currentgray 0 ne{0 setgray}if stroke}def
  15. /Cfill{currentlinewidth 0 eq{fill}{gsave fill Cf2}ifelse}def
  16. /Ceofill{currentlinewidth 0 eq{eofill}{gsave eofill Cf2}ifelse}def 
  17. /ShowExt{fd /EFN get exch get findfont dup setfont
  18. matrix currentmatrix 3 1 roll /FontMatrix get matrix invertmatrix concat
  19. 0 0 moveto charStr 0 3 -1 roll put fd /PaintType get 0 ne 
  20. currentgray 0 ne or{charStr false charpath setmatrix fd /PaintType get
  21. 0 eq{Cfill}{stroke}ifelse}{charStr show pop}ifelse grestore}def
  22. /BuildChar{AltRT2 begin /char exch def /fd exch def save
  23. /chnm fd /Encoding get char get def fd /StrokeWidth get setlinewidth
  24. fd /CharacterDefs get dup chnm known{chnm}{/.notdef}ifelse get
  25. newpath exec fd /PaintType get 0 eq{exec}{pop stroke}ifelse
  26. restore end}def end}ifelse /$GeneralElectric 18 dict def
  27. $GeneralElectric begin /PaintType 0 def /FontType 3 def
  28. /StrokeWidth 0 def /FontMatrix[.000678  0 0 .000678  0 0]def %/UniqueID 5922295 def 
  29. /FontBBox[0 -400 1474 1070 ]def /Encoding 256 array def /CharacterDefs 256 1 add dict def
  30. %/GrayFont 1 def %Gray char kludge for stringwidth bug
  31. /FontName (GeneralElectric) def /FontInfo 3 dict def FontInfo begin
  32. %/PreserveWidth 32 def % Put entire width adjust into space
  33. /UnderlinePosition -270 def  /UnderlineThickness 29 def  end
  34. /BuildChar{AltRT2 /BuildChar get exec}def
  35. 0 1 256 1 sub{Encoding exch /.notdef put}for
  36. CharacterDefs /.notdef{500 0 setcharwidth{}}put
  37. Encoding 32 /space put 
  38. CharacterDefs /space {<64DC6464D97CDA64D97CDAEE64D97CDAE9F5
  39. >{UCS}forall } put 
  40. Encoding 64 /at put 
  41. CharacterDefs /at {<AAE6646464D4AEE6AAE2EEF37FD9F079DCC0DCE92C74208E1B9F
  42. EB5A867168D9626CD9EB3E6E370C4348D7EB742D9E0A73D906EB663C8515A60DEB975873
  43. D98678D990EB5C3AEA626423D71304D75ED7EB051728D749D61B60D5EBC1129FDA80BEDA
  44. C7D9EB73BA7BA8D97AB3D9EB907CAC8E73D9A8EB907FAB9272D9B0EB7D42EA37531DD745
  45. D71CD72DD6EB6339D7B82AD68ADA28D6EB71D96265DAB269DA6EDAEB66AA379CD92FD79B
  46. D9EB046339D71A3DD740D7EB6822930564D907EB8D66A77DACA9EB667D58963F9AEB426A
  47. 335D2F4DEB635D6A536A53EB64646A6F7068EB6D5A694D5949EB56614371428CEB638785
  48. B3B1B3EB9D6464D94364D95AD7EB63061436D73DD737D7EB3CD76720D776D91DD764DAEB
  49. 62A798BFD98CD97EDAEB79568B52A553EB8065A76EA783EB647A47861B89EB4D65285E28
  50. 5EEB5E6B5772537AEB606C587B587DEB66659B93ACA4EBB8B8AFBAD98D69DAEB3F792DD7
  51. 621ED71DD7EB624A67156711EB3E4A263963D720EB3B4A21385BD71FEB6BA2EA6765746C
  52. 909DEB737E749A64A6EB5073385B2A44EB5B5450275024EB645F2E2563D72BEB4D674372
  53. 3890EB8871C29F6FD9B5EBBB6DD9BCC2D98E80DAEB1E971DD72102D724D7EB5A41580458
  54. 64D7EBA0ACE9709AB4A7D972D992D9EB864F6E012921D7EB4F503F45233AEB647367846E
  55. A3EBB55ED4E9281CD72AD75FD609D71CD7EB44844973D9A872DAEB7E7F92D9C19DD9C3EB
  56. 6347530E423FD7EB95DB9ADCE975A69874D9B664D9EB7A586D1C3F50D7EB3E3D47423135
  57. EB6464648E6AA7EBA1D964DAE9AD479810D6A820D4EB6A1F74DA2ED78A60D4EB5DD731D7
  58. 1CD5441AD444EB2BD76405D65ED760D46AEB59D772D96E98DA6E70DCEB646ED945D78FDA
  59. 8596DCEBA6B764DB8EABDB61EB9147AFDAAD9EDB8BEBF5>{UCS}forall } put 
  60. Encoding 65 /A put 
  61. CharacterDefs /A {<91DF6473D9647DDEC6DFEE73D964E9C2D9C6DFEA84D964EAB8D9
  62. 02D1EA50D764EA4190D9EA02D764EA3F38D7EA50D764EA9EDA8CDDE91E18D6EA8AD964EA
  63. 20B0DAEAF5>{UCS}forall } put 
  64. Encoding 67 /C put 
  65. CharacterDefs /C {<96DD6482D96496DDC6DFEE96DD8CDDE964A0EA6470D902C6D95A
  66. D6C6D9EB58D7645AD60E5AD602D7EB6450D4EA645DD767D914D76EDA14D7EB6BD9646EDA
  67. AD6EDAB4D9EB64A0EA50D764EA6428EA643A34280A28EB3A640A760AA0EB6478DCEA6492
  68. 90B3BEB3EB9264BE43BE15EB6428EA78D964EAF5>{UCS}forall } put 
  69. Encoding 69 /E put 
  70. CharacterDefs /E {<64DE6491D964A9DCC6DFEE91D9C6DFE97CDB64EA6450D7EA60D6
  71. 64EA6450D6EA68DA64EA6450D7EA60D664EA6452D6EA68DA64EA6450D7EA4CD564EA64C6
  72. DFEAF5>{UCS}forall } put 
  73. Encoding 71 /G put 
  74. CharacterDefs /G {<B4DD64646496DCC6DFEE96DC8CDDE964A0EA6474D95CD7C6D94C
  75. D6C6D9EB53D7644AD6134AD602D7EB6450D4EA6458D772D914D77EDA14D7EB6FD9647CDA
  76. A97CDAB4D9EB646EDAEA08D764EA6450D7EAAC64EA640AEA64362A2860D728EB35645ED7
  77. 715ED7A0EB6478DCEA64979BB26AD9B2EB966468D94868D916EB6428EA78D964EAF5
  78. >{UCS}forall } put 
  79. Encoding 73 /I put 
  80. CharacterDefs /I {<78DC6496D964AADAC6DFEE96D9C6DFE978D964EA6402D1EA50D7
  81. 64EA64C6DFEAF5>{UCS}forall } put 
  82. Encoding 76 /L put 
  83. CharacterDefs /L {<B4DD6482D9649ADCC6DFEE96DAC6DFE96416D2EA68DA64EA6450
  84. D7EA4CD564EA64C6DFEA78D964EAF5>{UCS}forall } put 
  85. Encoding 78 /N put 
  86. CharacterDefs /N {<8CE064A0D96492DEC6DFEE92DE64E950D764EA36D66CDDEA645C
  87. D3EA50D764EA64C6DFEA78D964EA92DA50D3EA6478DDEA78D964EA6402D1EAF5
  88. >{UCS}forall } put 
  89. Encoding 82 /R put 
  90. CharacterDefs /R {<9CDF6496D9646ADEC6DFEE96D9C6DFE96402D1EA78D964EA6488
  91. DBEAC464EA7A648D639C54EB73557442742CEB6454D6EA6456674B7041EB6D5A7A578857
  92. EB78D964EA566449684072EB5B6E58785886EB6474DAEA647F629159AAEB5B7E518E3FA2
  93. EB74717F7F8892EB7281709970BAEB6466D9EA649359B53A74D9EB3C910B9832D798EB54
  94. D664EA78D950D7E9C464EA7C64935FA04DEB6F5570467033EB6416EA644F613D532EEB56
  95. 5543522D52EB0464EA647ADAEAF5>{UCS}forall } put 
  96. Encoding 84 /T put 
  97. CharacterDefs /T {<82DF64BED9646EDEC6DFEEA0DCB2DEE96416D2EA50D764EA64B2
  98. DEEA32D764EA6478D9EA78DC64EA6450D7EA32D764EAF5>{UCS}forall } put 
  99. Encoding 127 /DEL put 
  100. CharacterDefs /DEL {<AAE6646464D4AEE6AAE2EE85DFA9E2E960D46343D146D543D1
  101. 42D1EB645FD482DB41D187DF41D1EB66DC6483DF7DDB87DF7FDFEB686BDC46D58FDF3FD1
  102. 8EDFEB644AE9C1DB6572DF4ED56FDF55D1EB610BD541D502D258D162D1EB0AD5605ED177
  103. DB5ED16DDFEB64BEDB75DB6BDF6BDF6CDFEB79DB31D6E9AD478519D69430D4EB6A1F88DA
  104. 46D79E14D5EB61D736D72CD5442AD444EB33D76417D65CD710D55EEB57D76CD96E93DA6E
  105. 68DCEB646ED951D773DA917ADCEBA6B7A4DA9A87DB6DEB9147A3DAA992DB87EBC2D94CD3
  106. E93A66278527ADEB647F83ACB0ACEBA9646FD91E70D920D7EB64284A1AD7420CD7EB9566
  107. D9A2A5D9A0ADDAEB5E98DA64D6A9DD4CD3B5DDEB396562D76363D742EB644C775E785EEB
  108. 6464697A684BEB63323E241925EB3D651D881EAFEB66A8AB74D9A4D971D9EB9B62B4D951
  109. 6EDA3EEB019A60D6AD08D6ADEB35D66414D336D614D34BD3EB640C7757D78B59D7EB7566
  110. 677A677AEB6464746C7E6CEB89659E429E11EB643A362A1826EB235C59D7A559D7A3D9EB
  111. 64A985BED987C2D9EB244CD71F60D62217D6EB7129D694DA11D383DD14D3EBAA646FD976
  112. 67D98CEB5D7652655065EB64645D665D7DEB648F88A3ADA3EB8764A74DA81AEB6507135D
  113. D72ED759D7EB286007D7795FD680EBC33798D929B5DA29EB6CDB66BBDDBADAB4DD89DDEB
  114. 638A5DC042C0EB4E64604E604EEB6464575C475DEBF5>{UCS}forall } put 
  115. AltRT2 /UCS known {} {AltRT2 begin /UVec[{rmoveto}{rlineto}{rcurveto}
  116. {ShowExt}{]concat}{Cache}{setlinewidth}{ShowInt}{setlinecap}{setlinejoin}
  117. {gsave}{[}{{Cfill}}{{Ceofill}}{{stroke}}{SetWid}{100 mul add}{100 mul}
  118. {100 div}]def /UCS{dup 200 lt{100 sub}{dup 233 lt{216 sub 100 mul add}
  119. {233 sub UVec exch get exec}ifelse}ifelse}def end}ifelse
  120. /EFN[]def
  121. end systemdict /currentpacking known{SavPak setpacking}if
  122. /GeneralElectric $GeneralElectric definefont pop 
  123. %/TestFont $GeneralElectric definefont pop
  124.